home *** CD-ROM | disk | FTP | other *** search
VERSION 2.00 Begin Form frmCommand BackColor = &H00FFFFFF& BorderStyle = 3 'Fixed Double Caption = "Command Button Demo" ClientHeight = 5265 ClientLeft = 1095 ClientTop = 1485 ClientWidth = 7290 ClipControls = 0 'False Height = 5670 Icon = 0 Left = 1035 LinkTopic = "Form2" ScaleHeight = 5265 ScaleWidth = 7290 Top = 1140 Width = 7410 Begin CUACommand cmd1 Caption = "Underline" Height = 345 Index = 40 Left = 5910 StandardButton = 40 'Under TabIndex = 42 Top = 4800 Width = 1260 End Begin CUACommand cmd1 Caption = "Italic" Font3D = 2 'Raised FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 345 Index = 39 Left = 4515 StandardButton = 39 'Italic TabIndex = 41 Top = 4800 Width = 1260 End Begin CUACommand cmd1 Caption = "Bold" Font3D = 2 'Raised FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 345 Index = 38 Left = 4515 StandardButton = 38 'Bold TabIndex = 37 Top = 4425 Width = 1260 End Begin CUACommand cmd1 Caption = "Margin" Font3D = 1 'Inset FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 345 Index = 37 Left = 3075 StandardButton = 34 'Just TabIndex = 40 Top = 4800 Width = 1260 End Begin CUACommand cmd1 Caption = "Right" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 345 Index = 36 Left = 1650 StandardButton = 37 'Right TabIndex = 39 Top = 4800 Width = 1260 End Begin CUACommand cmd1 Caption = "Center" Height = 345 Index = 35 Left = 225 StandardButton = 36 'Center TabIndex = 38 Top = 4800 Width = 1260 End Begin CUACommand cmd1 Caption = "Left" Height = 345 Index = 34 Left = 225 StandardButton = 35 'Left TabIndex = 34 Top = 4425 Width = 1260 End Begin CUACommand cmd2 Caption = "Terminal" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 720 Index = 1 Left = 5940 Picture = CCOMMAND.FRX:0000 PictureAlign = 1 'Top TabIndex = 44 Top = 2175 Width = 1155 End Begin CUACommand cmd2 Caption = "Line" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 720 Index = 0 Left = 5940 Picture = CCOMMAND.FRX:021A PictureAlign = 1 'Top TabIndex = 43 Top = 1425 Width = 1155 End Begin CUACommand cmd1 Caption = "Lock" Height = 345 Index = 33 Left = 225 StandardButton = 33 'Lock TabIndex = 30 Top = 4050 Width = 1260 End Begin CUACommand cmd1 Caption = "Contents" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 345 Index = 32 Left = 1650 StandardButton = 32 'Book TabIndex = 31 Top = 4050 Width = 1260 End Begin CUACommand cmd1 Caption = "Index" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 345 Index = 31 Left = 1650 StandardButton = 31 'Index TabIndex = 35 Top = 4425 Width = 1260 End Begin CUACommand cmd1 Caption = "Delete" Font3D = 1 'Inset FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 345 Index = 30 Left = 3075 StandardButton = 30 'Drop TabIndex = 36 Top = 4425 Width = 1260 End Begin CUACommand cmd1 Caption = "Back" Font3D = 1 'Inset FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 345 Index = 29 Left = 3075 StandardButton = 29 'Back TabIndex = 32 Top = 4050 Width = 1260 End Begin CUACommand cmd1 Caption = "Stop" Font3D = 2 'Raised FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 345 Index = 28 Left = 4515 StandardButton = 28 'Stop TabIndex = 33 Top = 4050 Width = 1260 End Begin CUACommand cmd1 Caption = "Pallette" Font3D = 2 'Raised FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 345 Index = 27 Left = 4515 StandardButton = 27 'Palette TabIndex = 29 Top = 3675 Width = 1260 End Begin CUACommand cmd1 Caption = "Mail" Font3D = 2 'Raised FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 345 Index = 26 Left = 4515 StandardButton = 26 'Mail TabIndex = 25 Top = 3300 Width = 1260 End Begin CUACommand cmd1 Caption = "Exit" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 345 Index = 25 Left = 1650 StandardButton = 8 'Exit TabIndex = 27 Top = 3675 Width = 1260 End Begin CUACommand cmd1 Caption = "Cancel" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 345 Index = 24 Left = 1650 StandardButton = 2 'Cancel TabIndex = 23 Top = 3300 Width = 1260 End Begin CUACommand cmd1 Caption = "OK" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 345 Index = 23 Left = 1650 StandardButton = 1 'OK TabIndex = 19 Top = 2925 Width = 1260 End Begin CUACommand cmd1 Caption = "Descending" Font3D = 1 'Inset FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 345 Index = 22 Left = 3075 StandardButton = 20 'Descending TabIndex = 28 Top = 3675 Width = 1260 End Begin CUACommand cmd1 Caption = "Ascending" Font3D = 1 'Inset FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 345 Index = 21 Left = 3075 StandardButton = 19 'Ascending TabIndex = 24 Top = 3300 Width = 1260 End Begin CUACommand cmd1 Caption = "New rec" Font3D = 1 'Inset FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 345 Index = 20 Left = 3075 StandardButton = 18 'New rec TabIndex = 20 Top = 2925 Width = 1260 End Begin CUACommand cmd1 Caption = "Help" Height = 345 Index = 19 Left = 225 StandardButton = 13 'MHelp TabIndex = 26 Top = 3675 Width = 1260 End Begin CUACommand cmd1 Caption = "Help" Height = 345 Index = 18 Left = 225 StandardButton = 3 'Help TabIndex = 22 Top = 3300 Width = 1260 End Begin CUACommand cmd1 Caption = "View" Font3D = 2 'Raised FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 345 Index = 17 Left = 4515 StandardButton = 25 'Look TabIndex = 21 Top = 2925 Width = 1260 End Begin CUACommand cmd1 Caption = "Zoom" Font3D = 2 'Raised FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 345 Index = 16 Left = 4515 StandardButton = 24 'Zoom TabIndex = 17 Top = 2550 Width = 1260 End Begin CUACommand cmd1 Caption = "Replace" Font3D = 2 'Raised FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 345 Index = 15 Left = 4515 StandardButton = 23 'Replace TabIndex = 13 Top = 2175 Width = 1260 End Begin CUACommand cmd1 Caption = "Find next" Font3D = 2 'Raised FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 345 Index = 14 Left = 4515 StandardButton = 22 'FindNext TabIndex = 9 Top = 1800 Width = 1260 End Begin CUACommand cmd1 Caption = "Find" Font3D = 2 'Raised FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 345 Index = 13 Left = 4515 StandardButton = 21 'Find TabIndex = 5 Top = 1425 Width = 1260 End Begin CUACommand cmd1 Caption = "Last" Font3D = 1 'Inset FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 345 Index = 12 Left = 3075 StandardButton = 17 'Last TabIndex = 16 Top = 2550 Width = 1260 End Begin CUACommand cmd1 Caption = "Next" Font3D = 1 'Inset FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 345 Index = 11 Left = 3075 StandardButton = 16 'Next TabIndex = 12 Top = 2175 Width = 1260 End Begin CUACommand cmd1 Caption = "Previous" Font3D = 1 'Inset FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 345 Index = 10 Left = 3075 StandardButton = 15 'Prev TabIndex = 8 Top = 1800 Width = 1260 End Begin CUACommand cmd1 Caption = "First" Font3D = 1 'Inset FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 345 Index = 9 Left = 3075 StandardButton = 14 'First TabIndex = 4 Top = 1425 Width = 1260 End Begin CUACommand cmd1 Caption = "Undo" Enabled = 0 'False FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 345 Index = 8 Left = 1650 StandardButton = 12 'Undo TabIndex = 15 Top = 2550 Width = 1260 End Begin CUACommand cmd1 Caption = "Paste" Enabled = 0 'False FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 345 Index = 7 Left = 1650 StandardButton = 11 'Paste TabIndex = 11 Top = 2175 Width = 1260 End Begin CUACommand cmd1 Caption = "Copy" Enabled = 0 'False FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 345 Index = 6 Left = 1650 StandardButton = 10 'Copy TabIndex = 7 Top = 1800 Width = 1260 End Begin CUACommand cmd1 Caption = "Cut" Enabled = 0 'False FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 345 Index = 5 Left = 1650 StandardButton = 9 'Cut TabIndex = 3 Top = 1425 Width = 1260 End Begin CUACommand cmd1 Caption = "Print" Height = 345 Index = 4 Left = 225 StandardButton = 7 'Print TabIndex = 18 Top = 2925 Width = 1260 End Begin CUACommand cmd1 Caption = "Save" Height = 345 Index = 3 Left = 225 StandardButton = 6 'Save TabIndex = 14 Top = 2550 Width = 1260 End Begin CUACommand cmd1 Caption = "Open" Height = 345 Index = 2 Left = 225 StandardButton = 5 'Open TabIndex = 10 Top = 2175 Width = 1260 End Begin CUACommand cmd1 Caption = "New" Height = 345 Index = 1 Left = 225 StandardButton = 4 'New TabIndex = 6 Top = 1800 Width = 1260 End Begin CUACommand cmd1 Caption = "Standard" Height = 345 Index = 0 Left = 225 TabIndex = 2 Top = 1425 Width = 1260 End Begin CUACommand cmdOK Caption = "OK" Default = -1 'True Height = 345 Left = 5160 StandardButton = 1 'OK TabIndex = 1 Top = 105 Width = 1260 End Begin CUALabel lbl Caption = "CUACommand is fully compatible with the standard button, including ""Cancel"" and ""Default"". In addition, CUACommand may contain pictures. 40 common pictures are built in for practical and system resurce preserving reasons." FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000080& Height = 810 Index = 6 Left = 225 TabIndex = 0 Top = 75 Width = 4740 End Option Explicit Sub cmdOK_Click () Unload Me End Sub 
(.txt)